home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / hardware / inoutbrd.lha / in-out-board / amos_sources / Port_Ein_Aus_.ASC < prev    next >
Text File  |  1995-11-28  |  2KB  |  74 lines
  1. '**************************************************************************
  2. '*                                                                        *
  3. '*                    Programm: Port_Ein_Aus_.Amos                        *
  4. '*                                                                        *
  5. '*                    © 1993,94,95 Andreas Heinrich                       *
  6. '*                                                                        *
  7. '**************************************************************************
  8. '
  9. '
  10. '        Dieses Programm liest den Wert an Port 2 ein und legt
  11. '        ihn in N ab. N wird dann auf Port 3 ausgegeben.
  12. '
  13. '
  14. '**************************************************************************
  15. '
  16. '  A=Port selektieren
  17. '  N=Wert aus diesem Port lesen
  18.    Global A,N
  19.    Hide
  20. '
  21. '
  22. '
  23. INIT : Rem      Nach dem einschalten einmal aufrufen
  24. '
  25. '**************************** Hauptprogramm *******************************
  26. '
  27. '
  28. '
  29. Do
  30. Print "Wert an Eingangsport = ";
  31. '
  32. A=2 : Rem       Eingabeport 2 wird ausgewählt -> IC 2
  33. LESEN
  34. Print N
  35. A=3 : Rem       Ausgabeport 3 wird ausgewählt -> IC 4
  36. SCHREIBEN
  37. Print
  38. Print "Noch einmal? Drücke eine Taste."
  39. Print
  40. Print "Oder Abbruch mit Ctrl - C"
  41. Print
  42. Wait Key
  43. Loop
  44. '
  45. '
  46. '************************** Proceduren ********************************
  47. '
  48. Procedure LESEN
  49. '
  50. Poke 12575489,0 : Rem      Port als Eingang schalten
  51. Poke 12570624,248+A : Rem  Adresse A selektieren
  52. N=Peek(12574977) : Rem     Wert N einlesen
  53. Poke 12570624,255 : Rem    Ready LED einschalten
  54. '
  55. End Proc
  56. '
  57. Procedure INIT
  58. '
  59. Poke 12571136,199 : Rem    Busy,P-aus und SEL=Bitmuster Ausgabe
  60. Poke 12570624,255 : Rem    Adresse 7 selektieren (Ready LED ein)
  61. Poke 12575489,0 : Rem      Port als Eingang schalten
  62. '
  63. End Proc
  64. '
  65. Procedure SCHREIBEN
  66. '
  67. Poke 12570624,248+A : Rem  Adresse A selektieren
  68. Poke 12575489,255 : Rem    Port als Ausgang schalten
  69. Poke 12574977,N : Rem      Wert N schreiben
  70. Poke 12570624,255 : Rem    Ready LED einschalten
  71. '
  72. End Proc
  73. '
  74.